1 IFA=0THENPRINT"[147]MOMENT! : PROGRAMM WIRD GELADEN!!"
2 IFA=0THENA=1:LOAD"QF*",8,1
10 POKE53281,0 :POKE53281,0:X=1:POKE646,X
20 PRINT"[147]       MARK'S DISK SERVICE         "
30 PRINT"   BITTE                LEERDISK   "
31 PRINT"  EINLEGEN, DANN 'J' DRUECKEN ZUM"
32 N=1
33 PRINT"            FORMATIEREN      "
34 PRINT"(ACHTUNG: ALLE DATEN GEHEN VERLOREN!!)         ENDE MIT 'N'-TASTE!"
35 GETT$:IFT$<>"J"ANDT$<>"N"THEN35
36 IFT$="N"THEN65
40 PRINT"     DISK FORMATIEREN? (J/N) ":S=S+1:IFS>2THENN=N+1
41 IFS>2THENS=1
42 PRINT"       DISK " N,"SEITE"S
43 GETAN$:IFAN$<>"J"ANDAN$<>"N"THEN43
46 IFAN$="N"THEN65
60 SYS49152:PRINT"[145][145][145][145][145][145][145]":X=X+1:IFX>7THENX=1
61 POKE646,X:GOTO40
65 END